home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
PSION
/
!Psion
/
Data
/
PRINTDIG
< prev
next >
Wrap
Text File
|
1990-08-25
|
976b
|
36 lines
PRINTDIG:(TOPUDG%,NUM%)
LOCAL BOTTUDG%
BOTTUDG%=TOPUDG%+4
IF NUM%=0
UDG:(TOPUDG%,14,31,27,27,27,27,27,27)
UDG:(BOTTUDG%,27,27,27,27,27,27,31,14)
ELSEIF NUM%=1
UDG:(TOPUDG%,2,6,14,6,6,6,6,6)
UDG:(BOTTUDG%,6,6,6,6,6,6,15,15)
ELSEIF NUM%=2
UDG:(TOPUDG%,14,31,27,27,3,3,3,7)
UDG:(BOTTUDG%,14,28,24,24,24,24,31,31)
ELSEIF NUM%=3
UDG:(TOPUDG%,14,31,27,27,3,3,3,15)
UDG:(BOTTUDG%,15,3,3,3,27,27,31,14)
ELSEIF NUM%=4
UDG:(TOPUDG%,24,24,24,24,24,27,27,27)
UDG:(BOTTUDG%,27,27,31,31,3,3,3,3)
ELSEIF NUM%=5
UDG:(TOPUDG%,31,31,24,24,24,24,30,31)
UDG:(BOTTUDG%,3,3,3,3,27,27,31,14)
ELSEIF NUM%=6
UDG:(TOPUDG%,14,31,27,24,24,24,24,30)
UDG:(BOTTUDG%,31,27,27,27,27,27,31,14)
ELSEIF NUM%=7
UDG:(TOPUDG%,31,31,3,3,3,3,7,14)
UDG:(BOTTUDG%,28,24,24,24,24,24,24,24)
ELSEIF NUM%=8
UDG:(TOPUDG%,14,31,27,27,27,27,31,14)
UDG:(BOTTUDG%,14,31,27,27,27,27,31,14)
ELSEIF NUM%=9
UDG:(TOPUDG%,14,31,27,27,27,27,27,31)
UDG:(BOTTUDG%,15,3,3,3,27,27,31,14)
ENDIF
RETURN